home *** CD-ROM | disk | FTP | other *** search
/ Megahits 7 / Megahits 7 (1995)(GTI - Rhein-Main-Soft)(DE)[!].iso / rms_katalog / rms-katalog_2.x+ < prev    next >
Text File  |  1995-12-31  |  3KB  |  74 lines
  1. failat 21
  2. stack 8000
  3. copy >NIL: :RMS_Katalog/RMSFiles/mm ram:
  4.  
  5.  
  6. ;if not exists ram:T
  7.     copy :RMS_Katalog/RMSFiles/Schubi TO ram:T QUIET ;dummy Verzeichnis
  8.     assign T: ram:T
  9. endif
  10.  
  11. ;if not exists ram:ENV
  12.     copy :RMS_Katalog/RMSFiles/Schubi TO ram:ENV QUIET
  13.     assign ENV: ram:Env
  14. endif
  15.  
  16. version >NIL:
  17. setenv Workbench $Workbench
  18. setenv Kickstart $Kickstart
  19.  
  20. echo "    *n*e[1;32m    ____________________________________________________________________"
  21. echo "    *e[43m                                                                    *e[0m"
  22. echo "    *e[0;32;43m                            RHEIN-MAIN-SOFT       *e[1m                  *e[0m"
  23. echo "    *e[0;32;43m                                                  *e[1m                  *e[0m"
  24. echo "    *e[0;32;43m                                KATALOG           *e[1m                  *e[0m"
  25. echo "    *e[0;32;43m                                                  *e[1m                  *e[0m"
  26. echo "    *e[0;32;43m                         KICKSTART 2.x VERSION    *e[1m                  *e[0m"
  27. echo "    *e[1;4;43m                                                                    *e[0m"
  28.  
  29.  
  30. ram:mm :RMS_Katalog/data/komm/charts
  31. ram:mm :RMS_Katalog/RMSFiles/angebot1
  32. ram:mm :RMS_Katalog/RMSFiles/sangebot
  33.  
  34. wait 3
  35.  
  36.  
  37. eval $Kickstart >Env:Kick  ;Ganzzahl erzeugen
  38. ;if $Kick GE 37 VAL
  39.  
  40. :c/cls
  41.  
  42.     echo "    *n*n    Lade den Katalog..."
  43.     assign libs:  :RMS_Katalog/RMSFiles ADD
  44. :c/cls
  45.  
  46.     :RMS_Katalog/RMSmenu >NIL:
  47. :RMS_Katalog/RMSFILES/psx CLOSE RMSmenu
  48.  
  49.     wait 2
  50.     echo "    *n*n*n        Sollten Sie noch Fragen haben, setzen Sie Sich bitte mit uns"
  51.     echo "        unter folgender Adresse in Verbindung:*n*n"
  52.     echo "    *e[32m                          Rhein-Main-Soft *e[0m"
  53.     echo "    *e[32m                           Postfach 2167 *e[0m"
  54.     echo "    *e[32m                         D-61411 Oberursel *e[0m"
  55.     echo "    *e[32m                 Tel: 06171/581000 Fax:06171/581001 *e[0m"
  56.  
  57.     wait 4
  58.     endcli
  59.  
  60. else
  61.  
  62.     echo "    *n*n        Tut mit leid, dieses Katalog-Menü läuft erst ab Kickstart 2.x"
  63.     echo "        Benötigen Sie ein Katalog-Set für Kickstart 1.3, dann setzen Sie"
  64.     echo "        Sich bitte mit uns unter folgender Adresse in Verbindung:*n*n"
  65.     echo "    *e[32m                          Rhein-Main-Soft *e[0m"
  66.     echo "    *e[32m                           Postfach 2167 *e[0m"
  67.     echo "    *e[32m                         D-61411 Oberursel *e[0m"
  68.     echo "    *e[32m                 Tel: 06171/581000 Fax:06171/581001 *e[0m"
  69.  
  70.     wait 4
  71.     endcli
  72.  
  73. endif
  74.